%
O9750(REN*SETTING)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
(LICENSED*FOR*SINGLE*MACHINE*USE*ONLY,*DO*NOT*COPY*OR*DISTRIBUTE)
(ALARM)
#3000=84(GENERATE*CYCLES*USING*INSTALLATION*WIZARD)
(ALARM)
G90G80G40G0
(VALUES IN MM ONLY)
(MULTIPROBE SECTION -->)
(PROBE 2 SELECTION CODE)
(PROBE 3 SELECTION CODE)
(PROBE 4 SELECTION CODE)
()
(PROBE 1 SETTINGS -->)
#101=10.(ABOVE SET ON ONE SIDE P1)
#107=0.(RETRACT POSITION P1)
#110=0.(MAX TOOL LENGTH P1)
#111=0.(MIN TOOL LENGTH P1)
#113=1.(ST STYLUS ACCESS 0/-1/1/2 P1)
#114=2.(RA STYLUS ACCESS 0/-1/1/2 P1)
#120=520.(BASE NUMBER P1)
#121=1.(ST AXIS P1)
#122=2.(RA AXIS P1)
#123=-3.(SP AXIS P1)
#126=1.(SP STYLUS ACCESS 1/2 P1)
#138=10.(TOOL DIA >#138 ROTATE P1)
#139=100.(INITIAL CLEARANCE P1)
#140=10.(SECONDARY CLEARANCE P1)
#144=1.(#121 1=X/2=Y/3=Z P1)
#146=2.(#122 1=X/2=Y/3=Z P1)
#147=3.(#123 1=X/2=Y/3=Z P1)
(PROBE 1 SETTINGS <--)
GOTO5000
()
N2000
(PROBE 2 SETTINGS -->)
#101=10.(ABOVE SET ON ONE SIDE P2)
#107=0.(RETRACT POSITION P2)
#110=0.(MAX TOOL LENGTH P2)
#111=0.(MIN TOOL LENGTH P2)
#113=1.(ST STYLUS ACCESS 0/-1/1/2 P2)
#114=2.(RA STYLUS ACCESS 0/-1/1/2 P2)
#120=530.(BASE NUMBER P2)
#121=1.(ST AXIS P2)
#122=2.(RA AXIS P2)
#123=-3.(SP AXIS P2)
#126=1.(SP STYLUS ACCESS 1/2 P2)
#138=10.(TOOL DIA >#138 ROTATE P2)
#139=100.(INITIAL CLEARANCE P2)
#140=10.(SECONDARY CLEARANCE P2)
#144=1.(#121 1=X/2=Y/3=Z P2)
#146=2.(#122 1=X/2=Y/3=Z P2)
#147=3.(#123 1=X/2=Y/3=Z P2)
(PROBE 2 SETTINGS <--)
GOTO5000
()
N3000
(PROBE 3 SETTINGS -->)
#101=10.(ABOVE SET ON ONE SIDE P3)
#107=0.(RETRACT POSITION P3)
#110=0.(MAX TOOL LENGTH P3)
#111=0.(MIN TOOL LENGTH P3)
#113=1.(ST STYLUS ACCESS 0/-1/1/2 P3)
#114=2.(RA STYLUS ACCESS 0/-1/1/2 P3)
#120=540.(BASE NUMBER P3)
#121=1.(ST AXIS P3)
#122=2.(RA AXIS P3)
#123=-3.(SP AXIS P3)
#126=1.(SP STYLUS ACCESS 1/2 P3)
#138=10.(TOOL DIA >#138 ROTATE P3)
#139=100.(INITIAL CLEARANCE P3)
#140=10.(SECONDARY CLEARANCE P3)
#144=1.(#121 1=X/2=Y/3=Z P3)
#146=2.(#122 1=X/2=Y/3=Z P3)
#147=3.(#123 1=X/2=Y/3=Z P3)
(PROBE 3 SETTINGS <--)
GOTO5000
()
N4000
(PROBE 4 SETTINGS -->)
#101=10.(ABOVE SET ON ONE SIDE P4)
#107=0.(RETRACT POSITION P4)
#110=0.(MAX TOOL LENGTH P4)
#111=0.(MIN TOOL LENGTH P4)
#113=1.(ST STYLUS ACCESS 0/-1/1/2 P4)
#114=2.(RA STYLUS ACCESS 0/-1/1/2 P4)
#120=550.(BASE NUMBER P4)
#121=1.(ST AXIS P4)
#122=2.(RA AXIS P4)
#123=-3.(SP AXIS P4)
#126=1.(SP STYLUS ACCESS 1/2 P4)
#138=10.(TOOL DIA >#138 ROTATE P4)
#139=100.(INITIAL CLEARANCE P4)
#140=10.(SECONDARY CLEARANCE P4)
#144=1.(#121 1=X/2=Y/3=Z P4)
#146=2.(#122 1=X/2=Y/3=Z P4)
#147=3.(#123 1=X/2=Y/3=Z P4)
(PROBE 4 SETTINGS <--)
()
N5000(<-- END MULTIPROBE SECTION)
#102=200.(FIRST TOUCH FEEDRATE)
#108=3.(TOOL OFFSET TYPE)
#109=1.(OFFSET-RADIUS 1/DIAMETER 2)
#117=5.(DEFAULT OVERTRAVEL)
#124=1.(X AXIS RADIUS=1 DIAMETER=2)
#125=5.(RADIAL CLEARANCE)
#127=5000.(RAPID TRAVERSE)
#128=2000.(LT/ST APPROACH FEED)
#141=1.(APPROACH METHOD 0=LT/ST SEARCH, 1=KNOWN TL, 2=OFF CENTRE LT/ST) 
#142=0.015(STYLUS LEVEL TOL)
#143=0.(CYCLE INPUT COMPATIBILTY 0=CURRENT, 1=BACKWARD)
#145=0.005(ZONE CHK)
#129=1.(MM)
IF[#4006EQ21]GOTO5001
#129=.03937(INCH)
N5001
#100=1
#30=43
IF[#123GT0]GOTO5002
#100=-1
#30=44
N5002
#123=ABS[#123]
IF[#108EQ2]GOTO5003
IF[#108EQ3]GOTO5004
(A*TYPE)
#103=0
#104=2000(L)
#105=0
#106=2000(R)
GOTO5005
N5003(B*TYPE)
#103=2200(LW)
#104=2000(LG)
#105=2200(RW)
#106=2000(RG)
GOTO5005
N5004(C*TYPE)
#103=2000(LW)
#104=2200(LG)
#105=12000(RW)
#106=13000(RG)
N5005
#115=1
IF[#101GT0]GOTO5006
#115=-1
N5006
IF[#[#120+7]LE0]GOTO5007
IF[#[#120+7]GT5]GOTO5007
GOTO5008
N5007
#[#120+7]=0.25
N5008
#101=ABS[#101]*#129
#102=#102*#129
#107=#107*#129
#110=#110*#129
#111=#111*#129
#117=#117*#129
#125=#125*#129
#127=#127*#129
#128=#128*#129
#138=#138*#129
#139=#139*#129
#140=#140*#129
#142=#142*#129
#145=#145*#129
#118=#0
M99


O9751(REN*START*PROGRAM)
G53(*)
G[20-#147](NEW*SPINDLE*X/Y/Z)
IF[#20LE0]GOTO9
G53(*)
G4X.2
IF[#1EQ1]GOTO1
IF[#1EQ2]GOTO1
G65P9755
N1
#116=#[#104+#20]
IF[#108EQ1]GOTO2
#116=#[#104+#20]+#[#103+#20]
N2
#136=#116
G53(*)
#116=#[5000+#123]-#116*#100
G53(*)
IF[#147EQ2]GOTO4
IF[#147EQ1]GOTO5
G#30G31H#20Z#116F[100*#129]
GOTO6
N4
G#30G31H#20Y#116F[100*#129]
GOTO6
N5
G#30G31H#20X#116F[100*#129]
N6
G53(*)
#116=[#[5040+#123]-#[5000+#123]]*#100
IF[#116EQ0]GOTO61
#136=0
N61
#14=#[5020+#123]-#[5040+#123]
#15=#[5020+#122]-#[5040+#122]
#16=#[5020+[ABS[#121]]]-#[5040+[ABS[#121]]]
#133=[ABS[#[#120+4]-#[#120+5]]]/2(HALF STYLUS WIDTH ST AXIS)
#133=#133*#129
#134=[ABS[#[#120+2]-#[#120+3]]]/2(HALF STYLUS WIDTH RA AXIS)
#134=#134*#129
#135=[#[#120+2]+#[#120+3]]/2(CENTRE POINT RA AXIS)
#135=#135*#129
#135=#135-#15
#137=[#[#120+4]+#[#120+5]]/2(CENTRE POINT ST AXIS)
#137=#137*#129
#137=#137-#16
IF[#1EQ1]GOTO10
IF[#1EQ2]GOTO10
G65P9754X#137Y#135
GOTO10
N9
#149=70
M98P9759
N10
#149=#0
M99


O9752(REN*MEASURE*MOVE)
G53(*)
#149=0
#28=0
IF[#1NE#123]GOTO4
#28=#116*#100
N4
#32=1
IF[#20LE#[5040+#1]-#28]GOTO5
#32=-1
N5
#20=#20-[#17*#32]
#25=#20
G53(*)
IF[#13EQ10]GOTO7
IF[#13EQ20]GOTO9
IF[#13EQ30]GOTO7
#25=#25+[#17*#32]
G53(*)
G65P9753A#1T#25F#7
G53(*)
IF[#13EQ3]GOTO14
#2=#131+[5.*#129*#100]
G65P9754A#1T#2F#127
G53(*)
#25=#[5000+#1]
#25=#25-[[#17+5.*#129]*#32]
N7
IF[#9EQ#0]GOTO8
IF[#9LT#102]GOTO85
N8
#9=#102
N85
#3004=2
G53(*)
G65P9753A#1T#25F#9
#3004=0
IF[#149GT0]GOTO19
IF[#13EQ30]GOTO14
#2=#131+[[#[#120+7]*#129]*#32]
G65P9754A#1T#2F#127
N9
#9=30.*#129
IF[#19NE1]GOTO10
S800
#9=4.*#129
N10
#3004=2
G65P9753A#1T#25F#9
#3004=0
IF[#149GT0]GOTO19
N14
IF[#1NE#123]GOTO16
#2=#131+[#140*#32]
GOTO18
N16
#2=#131+[#125*#32]
N18
G65P9754A#1T#2F#127
N19
G53(*)
M99


O9753(REN*G31*MOVE)
#6=0
IF[#1NE#123]GOTO1
#6=#116
N1
G53(*)
#10=#[5040+#1]-#6*#100
#24=#[5040+#121]
#25=#[5040+#122]
#26=#[5040+#123]-#116*#100
IF[#1EQ#121]GOTO2
IF[#1EQ#122]GOTO3
IF[#147EQ1]GOTO4
IF[#147EQ2]GOTO5
GOTO6
N2
IF[#144EQ1]GOTO4
IF[#144EQ2]GOTO5
GOTO6
N3
IF[#146EQ1]GOTO4
IF[#146EQ2]GOTO5
GOTO6
N4
G53(*)
G31X#20F#9
GOTO7
N5
G53(*)
G31Y#20F#9
GOTO7
N6
G53(*)
G31Z#20F#9
N7
G53(*)
#131=#[5060+#1]-#6*#100
G53(*)
IF[#23EQ1]GOTO8
G53(*)
#149=10.
IF[ABS[#131-#10]LT#145]GOTO10
G53(*)
#149=20.
IF[ABS[#131-#20]LT#145]GOTO10
GOTO9
N8
G53(*)
#149=10.
IF[ABS[#131-#20]GT#145]GOTO10
N9
G53(*)
#149=0
N10
IF[#149EQ0]GOTO17
IF[#1EQ#121]GOTO11
IF[#1EQ#122]GOTO12
IF[#147EQ1]GOTO13
IF[#147EQ2]GOTO14
GOTO15
N11
IF[#144EQ1]GOTO13
IF[#144EQ2]GOTO14
GOTO15
N12
IF[#146EQ1]GOTO13
IF[#146EQ2]GOTO14
GOTO15
N13
G53(*)
G1X#10F#127
G53(*)
GOTO16
N14
G53(*)
G1Y#10F#127
G53(*)
GOTO16
N15
G53(*)
G1Z#10F#127
G53(*)
N16
IF[#118EQ9858]GOTO17
M98P9759
N17
M99


O9754(REN*G0*G1*MOVE)
G53(*)
IF[#24NE#0]GOTO1
#24=#[5040+#121]
N1
IF[#25NE#0]GOTO2
#25=#[5040+#122]
N2
IF[#26NE#0]GOTO3
#26=#[5040+#123]-#116*#100
N3
#[3+#144]=#24
#[3+#146]=#25
#[3+#147]=#26
IF[#1EQ#0]GOTO6
IF[#1EQ#121]GOTO4
IF[#1EQ#122]GOTO5
#[3+#147]=#20
GOTO6
N4
#[3+#144]=#20
GOTO6
N5
#[3+#146]=#20
N6
IF[#9NE#0]GOTO7
G53(*)
G0X#4Y#5Z#6
GOTO8
N7
G53(*)
G1X#4Y#5Z#6F#9
N8
G53(*)
M99


O9755(REN*G28*MOVE)
IF[#147EQ1]GOTO1
IF[#147EQ2]GOTO2
G00G53Z#107
GOTO3
N1
G00G53X#107
GOTO3
N2
G00G53Y#107
N3
G90
M99


O9759(REN*ERROR*MESSAGE)
(AIR*BLAST*OFF)
M5
G90
N1(EN)
GOTO[#149]
N10
#3000=92(PROBE*ALREADY*TRIGGERED)
N20
#3000=93(PROBE*DID*NOT*TRIGGER)
N30
#3000=97(H*INPUT*NOT*ALLOWED)
N40
#3000=80(LONG*TOOL)
N50
#3000=81(BROKEN*TOOL)
N60
#3000=99(FORMAT*ERROR)
N70
#3000=94(TOOL*OUT*OF*RANGE)
N80
#3000=95(R*INPUT*MISSING)
N90
#3000=91(C*INPUT*MISSING)
N100
#3000=96(W*INPUT*MISSING)
N110
#3000=97(TOOL*OFFSET*ACTIVE)
N120
#3000=98(B4*#126*INPUTS*MIXED)
N130
#3000=90(LENGTH*OUT*OF*TOLERANCE)
N131
#3000=90(RADIUS*OUT*OF*TOLERANCE)
N132
#3000=90(OUT*OF*TOLERANCE)
N135
#3000=100(THERMAL*COMP*TOLERANCE*EXCEEDED)
N140
(M0)
(IS*TOOL*OFFSET*CORRECT)
(*CYCLE*START*TO*CONTINUE)
GOTO210
N150
#3000=196(D*INPUT*MISSING)
N160
#3000=99(INCORRECT*REPORTER*CODE*INPUT)
N410
#3000=195(CALIBRATION*REQUIRED)
N417
#3000=194(DISC*STYLUS*NOT*LEVEL)
N420
#3000=193(SKIP*FUNCTION*TEST*FAILED)
N435
#3006=1(PROBE*BASIC*CHECK*PASSED)
N210
M99


O9890(USER*START)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
(PROBE 2 SELECTION CODE)
(PROBE 3 SELECTION CODE)
(PROBE 4 SELECTION CODE)
(PROBE 1 ON)
GOTO5000
N2000
(PROBE 2 ON)
GOTO5000
N3000
(PROBE 3 ON)
GOTO5000
N4000
(PROBE 4 ON)
N5000
M99


O9891(USER*END)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
(PROBE 2 SELECTION CODE)
(PROBE 3 SELECTION CODE)
(PROBE 4 SELECTION CODE)
(PROBE 1 OFF)
GOTO5000
N2000
(PROBE 2 OFF)
GOTO5000
N3000
(PROBE 3 OFF)
GOTO5000
N4000
(PROBE 4 OFF)
N5000
M99


O9855(REN*CALIBRATION)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
M98P9750
IF[#143EQ0]GOTO1111
(SAVE INPUTS FOR BACKWARD COMPATIBILITY)
#29=#21
#31=#22
#21=#0
#22=#0
(SWAP INPUTS FOR BACKWARD COMPATIBILITY)
#8=#29
#9=#31
(CLEAR VARIABLES)
#4=#0
#6=#0
#23=#0
#29=#0
#31=#0
N1111
#27=#8
#28=#9
#9=#0
G65P9890A9855.(USER*START)
M5
M19
IF[#7EQ#0]GOTO1
#25=#7
#24=#7/2
N1
#149=60
IF[#18EQ#0]GOTO42
IF[#25EQ#0]GOTO42
IF[#24EQ#0]GOTO42
#24=#24*2
IF[#20NE#0]GOTO1114
#20=#4120
N1114
#149=70
IF[#20LE0]GOTO42
#19=4.
IF[#18GT0]GOTO1115
#19=3.
N1115
#18=ABS[#18/2]
IF[#126EQ1]GOTO1117
#149=90
IF[#3EQ#0]GOTO42
IF[#4NE#0]GOTO1116
#4=2.*#129
N1116
IF[#6NE#0]GOTO1117
#6=5.*#129
N1117
#10=ABS[#4]
#11=ABS[#6]
IF[#26NE#0]GOTO2
#26=5*#129
N2
IF[#17NE#0]GOTO3
#17=#117
N3
#1=2.
M98P9751
#6=#116
#4=#[5040+#121]
#5=#[5040+#122]
#8=#[5040+#123]-#116*#100
#137=#4
#135=#5
#[#120+2]=[#135+#25/2]/#129+#15
#[#120+3]=[#135-#25/2]/#129+#15
#[#120+4]=[#137+#24/2]/#129+#16
#[#120+5]=[#137-#24/2]/#129+#16
G65P9754X[#4+#27]Y[#5+#28]F[2000*#129]
G65P9752A#123Q#17T[#8-[[10.*#129]*#100]]M10.
#20=#131
G53(*)
#[#120]=#131+#14-[#136*#100]
#[#120]=#[#120]/#129
G65P9754X#4Y#5F[2000*#129]
M#19S800
IF[#114EQ0]GOTO6
#1=#135+[[#25/2]+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#135+[[#25/2]+#18]*[#114/ABS[#114]]
G65P9752A#122T#1M10.F#9Q#17S1.
#21=#131
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
#5=#21-[#18+[#25/2]]*[#114/ABS[#114]]
IF[#114NE2]GOTO5
#1=#135-[#25/2]-#125-#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#135-[#25/2]-#18
G65P9752A#122T#1F#9M10.Q#17S1.
#12=#131
#21=[#21+#12]/2
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
#5=#21
N5
G65P9753A#122T#5F#127W1.
N6
IF[#113EQ0]GOTO8
#1=#137+[[#24/2]+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#137+[[#24/2]+#18]*[#113/ABS[#113]]
G65P9752A#121T#1F#9M10.Q#17S1.
#21=#131
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
#4=#21-[#18+[#24/2]]*[#113/ABS[#113]]
IF[#113NE2]GOTO7
#1=#137-[#24/2]-#125-#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#137-[#24/2]-#18
G65P9752A#121T#1F#9M10.Q#17S1.
#12=#131
#21=[#21+#12]/2
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
#4=#21
N7
G65P9753A#121T#4F#127W1.
N8
#135=#5
#137=#4
(-->180 CAL START)
M5
IF[#114EQ0]GOTO11
IF[#114EQ-1]GOTO9
M19(0*DEG*ORIENT)
#1=#135+[#25/2]+#125+#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#135+[#25/2]+#18
G65P9752A#122T#1M10.F#9Q#17S1.
#21=#131
M00(180*DEG*ORIENT)
G65P9752A#122T#1M10.F#9Q#17S1.
#21=[#21+#131]/2
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
#[#120+2]=[#21-#18+#15]/#129
#[#120+3]=#[#120+2]-#25/#129
IF[#114EQ1]GOTO10
N9
M19(0*DEG*ORIENT)
#1=#135-[#25/2]-#125-#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#135-[#25/2]-#18
G65P9752A#122T#1F#9M10.Q#17S1.
#12=#131
M00(180*DEG*ORIENT)
G65P9752A#122T#1F#9M10.Q#17S1.
#12=[#12+#131]/2
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
#[#120+3]=[#12+#18+#15]/#129
IF[#114EQ2]GOTO10
#[#120+2]=#[#120+3]+#25/#129
N10
#135=[#[#120+2]+#[#120+3]]/2
#135=#135*#129-#15
G65P9753A#122T#135F#127W1.
N11
IF[#113EQ0]GOTO14
IF[#113EQ-1]GOTO12
M19(0*DEG*ORIENT)
#1=#137+[#24/2]+#125+#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#137+[#24/2]+#18
G65P9752A#121T#1M10.F#9Q#17S1.
#21=#131
M00(180*DEG*ORIENT)
G65P9752A#121T#1M10.F#9Q#17S1.
#21=[#21+#131]/2
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
#[#120+4]=[#21-#18+#16]/#129
#[#120+5]=#[#120+4]-#24/#129
IF[#113EQ1]GOTO13
N12
M19(0*DEG*ORIENT)
#1=#137-[#24/2]-#125-#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#26*#100]]F#127W1.
#1=#137-[#24/2]-#18
G65P9752A#121T#1F#9M10.Q#17S1.
#12=#131
M00(180*DEG*ORIENT)
G65P9752A#121T#1F#9M10.Q#17S1.
#12=[#12+#131]/2
G65P9753A#123T[#20+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
#[#120+5]=[#12+#18+#16]/#129
IF[#113EQ2]GOTO13
#[#120+4]=#[#120+5]+#24/#129
N13
#137=[#[#120+4]+#[#120+5]]/2
#137=#137*#129-#16
G65P9753A#121T#137F#127W1.
N14
M19(0*DEG*ORIENT)
(<--180 CAL END)
G65P9754X[#137+#27]Y[#135+#28]F[2000*#129]
#1=#140
#140=#[#120+7]*#129
G65P9752A#123Q#17T#20M10.
#20=#131
#140=#1
G53(*)
#[#120]=#131+#14-[#136*#100]
#[#120]=#[#120]/#129
#[#120+1]=#[#120]-[[#3*#100]/#129]
M#19S800
G65P9753A#123T[#20+[[#[#120+7]*#129]*#100]]F#127W1.
G53(*)
G65P9752A#123Q#17T#20M20.S1.
G53(*)
#[#120+6]=[#131-#20]/#129
G65P9754X#137Y#135F[2000*#129]
IF[#126EQ1]GOTO25
IF[#113NE0]GOTO19
IF[#114NE0]GOTO19
GOTO25
N19
IF[#23EQ#0]GOTO25
M5
#133=[ABS[#[#120+4]-#[#120+5]]]/2
#133=#133*#129
#134=[ABS[#[#120+2]-#[#120+3]]]/2
#134=#134*#129
IF[#113EQ0]GOTO20
#21=#140
#140=#11
#1=#137+[#133+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20-[#3+#140+#23]*#100]F#127W1.
#1=#137+[#133+#18-#10]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9752A#123Q#17T[#20-[[#3+#23]*#100]]M10.
#[#120+1]=#131+#14+[#23-#136]*#100(PARA*5006/6019)
#[#120+1]=#[#120+1]/#129
#1=#137+[#133+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#20+[#21*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
GOTO25
N20
#21=#140
#140=#11
#1=#135+[#134+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20-[#3+#140+#23]*#100]F#127W1.
#1=#135+[#134+#18-#10]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9752A#123Q#17T[#20-[[#3+#23]*#100]]M10.
#[#120+1]=#131+#14+[#23-#136]*#100(PARA*5006/6019)
#[#120+1]=#[#120+1]/#129
#1=#135+[#134+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#20+[#21*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
N25
M5
GOTO44
N42
M98P9759
N44
#149=#0
G65P9891A9855.(USER*END)
M99


O9856(MANUAL*TOOL*SETTING)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
M5
#149=110
IF[#4111NE0]GOTO25
M98P9750
IF[#143EQ0]GOTO1001
(SAVE INPUTS FOR BACKWARD COMPATIBILITY)
#27=#7
#28=#8
#29=#5
#31=#6
#7=#0
#8=#0
#5=#0
#6=#0
(SWAP INPUTS FOR BACKWARD COMPATIBILITY)
#18=#27
#7=#28
#4=#29
#5=#31
IF[#11EQ#0]GOTO1002
#11=-ABS[#11]
#8=#11
N1002
(CLEAR VARIABLES)
#27=#0
#28=#0
#29=#0
#31=#0
N1001
G65P9890A9856.(USER*START)
#148=0
(AIR*BLAST*ON)
IF[#2NE#0]GOTO1
#2=1
N1
IF[#17NE#0]GOTO1005
#17=#117
N1005
IF[#1EQ#0]GOTO1007
#125=#1
N1007
IF[#2EQ1]GOTO2
#149=80
IF[#143EQ0]GOTO1008
#149=150
N1008
IF[#18EQ#0]GOTO25
N2
IF[#18NE#0]GOTO3
#18=0
N3
#19=4
IF[#18GT0]GOTO4
#19=3
N4
IF[#20NE#0]GOTO5
#20=#4120
N5
IF[#2EQ1]GOTO7
IF[#7NE#0]GOTO7
IF[#108EQ3]GOTO6
#149=60
GOTO25
N6
#7=#20
N7
#18=ABS[#18/2]
IF[#18EQ0]GOTO10
#130=800
#132=[#18*2]/#129
#132=[ROUND[1910/#132]]*10
IF[#132LT800]GOTO8
#132=800
N8
IF[#132GT150]GOTO9
#132=150
N9
#9=[#132*0.15]*#129
N10
IF[#26NE#0]GOTO11
#26=5*#129
N11
IF[#114EQ0]GOTO340
IF[#114NE2]GOTO341
IF[[#18*2]LE#101]GOTO341
#114=#115
GOTO341
N340
IF[#113NE2]GOTO341
IF[[#18*2]LE#101]GOTO341
#113=#115
N341
#14=#[5040+#123]
#15=#[5020+#122]-#[5040+#122]
#16=#[5020+#121]-#[5040+#121]
#135=#[5040+#122]
#137=#[5040+#121]
#116=0
IF[ABS[#18*2]GT#138]GOTO12
G65P9752A#123T[#14-[[10*#129]*#100]]M10.Q#17
#10=#131
GOTO13
N12
S#132
M#19
G65P9752A#123T[#14-[[10*#129]*#100]]M10.Q#17S1.F#9
#10=#131-[[[#[#120+6]]*#129]*#100]
N13
#30=#10
#14=#[5020+#123]-#[5040+#123]
#10=#14+#10-[[#[#120]]*#129]
IF[#2EQ1]GOTO15
S#132
M#19
#133=[ABS[#[#120+4]-#[#120+5]]]/2
#133=#133*#129
#134=[ABS[#[#120+2]-#[#120+3]]]/2
#134=#134*#129
#135=[#[#120+2]+#[#120+3]]/2
#135=#135*#129
#135=#135-#15
#137=[#[#120+4]+#[#120+5]]/2
#137=#137*#129
#137=#137-#16
IF[#114EQ0]GOTO14
G65P9753A#121T#137F#127W1.
#1=#135+[#134+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#135+[#134+#18]*[#114/ABS[#114]]
G65P9752A#122T#1M10.F#9Q#17S1.
#21=ABS[#135-#131+#134*[#114/ABS[#114]]]
G65P9753A#123T[#30+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
IF[#114NE2]GOTO15
#1=#135-#134-#125-#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#135-#134-#18
G65P9752A#122T#1F#9M10.Q#17S1.
#12=ABS[#135-#131-#134]
#21=[#21+#12]/2
G65P9753A#123T[#30+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
GOTO15
N14
G65P9753A#122T#135F#127W1.
IF[#113EQ0]GOTO15
#1=#137+[#133+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#137+[#133+#18]*[#113/ABS[#113]]
G65P9752A#121T#1F#9M10.Q#17S1.
#21=ABS[#137-#131+#133*[#113/ABS[#113]]]
G65P9753A#123T[#30+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
IF[#113NE2]GOTO15
#1=#137-#133-#125-#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#137-#133-#18
G65P9752A#121T#1F#9M10.Q#17S1.
#12=ABS[#137-#131-#133]
#21=[#21+#12]/2
G65P9753A#123T[#30+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
N15
#10=#10-#5
IF[#11EQ#0]GOTO17
IF[#116NE0]GOTO16
#10=#10-#[#104+#20]
N16
IF[#11LT0]GOTO18
IF[ABS[#10]LE#11]GOTO20
#148=1
GOTO20
N17
#[#104+#20]=#116+#10*#100
IF[#103EQ0]GOTO20
#[#103+#20]=0
GOTO20
N18
IF[ABS[#10]LEABS[#11]]GOTO19
#148=1
GOTO20
N19
IF[#103EQ0]GOTO20
#[#103+#20]=#10
N20
IF[#2EQ1]GOTO24
IF[#8EQ#0]GOTO21
#12=[[#21-#4]*#109]-#[#106+#7]
IF[#8LT0]GOTO22
IF[ABS[#12]LE#8]GOTO24
#148=#148+2
GOTO24
N21
#[#106+#7]=[#21-#4]*#109
IF[#105EQ0]GOTO24
#[#105+#7]=0
GOTO24
N22
IF[ABS[#12]LEABS[#8]]GOTO23
#148=#148+2
GOTO24
N23
IF[#105EQ0]GOTO24
#[#105+#7]=#12
N24
IF[#148EQ0]GOTO26
#149=129+#148
N25(ALARM)
G65P9891A9856.(USER*END)
M98P9759
N26
#149=#0
M5
(AIR*BLAST*OFF)
G65P9891A9856.(USER*END)
M99


O9857(REN*TOOL*AUTO*SET)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
(REPORTER1)
M5
#12=0.(STEP*OFF*FROM*CENTRE*IN*MM)
#10=#1
M98P9750
IF[#143EQ0]GOTO101
(SAVE INPUTS FOR BACKWARD COMPATIBILITY)
#27=#7
#28=#8
#29=#5
#32=#6
#31=#25
#7=#0
#8=#0
#5=#0
#6=#0
#25=#0
(SWAP INPUTS FOR BACKWARD COMPATIBILITY)
#18=#27
#7=#28
#4=#29
#5=#32
#6=#31
IF[#11EQ#0]GOTO102
#11=-ABS[#11]
#8=#11
#3=#0
#9=#0
N102
(CLEAR VARIABLES)
#27=#0
#28=#0
#29=#0
#32=#0
#31=#0
N101
#32=#18
IF[#10EQ#0]GOTO107
#125=#10
N107
IF[#2NE#0]GOTO2
#2=1
N2
IF[#3NE#0]GOTO3
#3=1
N3
IF[#2EQ3.2]GOTO5
IF[[#2*10]-FIX[#2]*10NE1]GOTO4
#141=1
N4
#2=FIX[#2]
N5
IF[ABS[#18]LT[35.*#129]]GOTO10
IF[#26LT[10.2*#129]]GOTO10
M0
(POTENTIAL*COLLISION)
N10
IF[#141NE2]GOTO11
IF[#2NE4]GOTO11
#149=100
IF[#23EQ#0]GOTO95
N11
IF[#17NE#0]GOTO12
#17=#117
N12
IF[#2NE4]GOTO13
#149=120
IF[#126EQ1]GOTO95
N13
#149=0
IF[#2EQ1]GOTO14
#149=80
IF[#143EQ0]GOTO1301
#149=150
N1301
IF[#18EQ#0]GOTO95
N14
IF[#18NE#0]GOTO16
#18=0
N16
#19=4.
IF[#18GT0]GOTO18
#19=3.
N18
IF[#20NE#0]GOTO20
#20=#4120
N20
IF[#2EQ1]GOTO24
IF[#7NE#0]GOTO24
#149=60
IF[#108NE3.]GOTO95
#7=#20
N24
IF[#11NE#0]GOTO28
IF[#6EQ#0]GOTO28
IF[#108EQ1]GOTO26
#[#103+#20]=0
N26
#[#104+#20]=#6
N28
#18=ABS[#18/2]
IF[#18EQ0]GOTO34
#130=800
#132=[#18*2]/#129
#132=[ROUND[1910/#132]]*10
IF[#132LT800]GOTO30
#132=800
N30
IF[#132GT150]GOTO32
#132=150
N32
#29=[#132*0.15*#3]*#129
IF[#141NE2]GOTO33
IF[#9NE#0]GOTO34
N33
#9=#29
N34
M98P9751
G65P9890A9857.(USER*START)
IF[#114EQ0]GOTO340
IF[#114NE2]GOTO341
IF[[#18*2]LE#101]GOTO341
#114=#115
GOTO341
N340
IF[#113NE2]GOTO341
IF[[#18*2]LE#101]GOTO341
#113=#115
N341
#31=[#[#120]*#129]-#14
IF[#141EQ1]GOTO1000
IF[#141EQ2]GOTO2000
(#141=0*SECTION)
IF[#2EQ4]GOTO42
IF[#114EQ0]GOTO38
IF[#2EQ3.2]GOTO36
IF[[#18*2]LE#138]GOTO36
G65P9754X#137Y[#135+[#18*[#114/ABS[#114]]]]
GOTO43
N36
G65P9754X#137Y[#135+[#12*#129*[#114/ABS[#114]]]]
GOTO43
N38
IF[#2EQ3.2]GOTO40
IF[[#18*2]LE#138]GOTO40
G65P9754X[#137+[#18*[#113/ABS[#113]]]]Y#135
GOTO43
N40
G65P9754X[#137+[#12*#129*[#113/ABS[#113]]]]Y#135
GOTO43
N42
IF[#113EQ0]GOTO425
G65P9754X[#137+[[#18+#133+#125]*[#113/ABS[#113]]]]Y#135
GOTO60
N425
IF[#18LT[17.5*#129]]GOTO426
M0
(POTENTIAL*COLLISION)
N426
G65P9754X#137Y[#135+[[#18+#134+#125]*[#114/ABS[#114]]]]
GOTO60
N43
(AIR*BLAST*ON)
#30=#31
IF[#2EQ2]GOTO48
IF[#2EQ3.2]GOTO44
IF[[#18*2]GT#138]GOTO48
N44
G65P9754Z[#31+[#110-#116]*#100]
#10=#31+[#111-#116]*#100
#140=#140+#23
G65P9752A#123T#10Q#17D#128
#140=#140-#23
#10=#31-#131
#30=#131
IF[#2EQ1]GOTO4000
GOTO49
N48
#31=[#[#120]*#129]-#14+#136*#100
G65P9754Z[#31+#139*#100]
G65P9753A#123T[#31+[[#140+#23]*#100]]F#127W1.
S#132
M#19
#30=#31
IF[#2EQ2]GOTO49
#140=#140+#23
G65P9752A#123T#31M10.Q#17S1.F#9
#140=#140-#23
#10=#31-#131-[[[#[#120+6]]*#129]*#100]
#30=#131
IF[#2EQ1]GOTO4000
N49
S#132
M#19
IF[#26NE#0]GOTO50
#26=5.*#129
N50
IF[#114EQ0]GOTO55
#1=#135+[#134+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#135+[#134+#18]*[#114/ABS[#114]]
G65P9752A#122T#1M10.F#9Q#17S1.
#21=ABS[#135-#131+#134*[#114/ABS[#114]]]
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
IF[#114NE2]GOTO80
#1=#135-#134-#125-#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#135-#134-#18
G65P9752A#122T#1F#9M10.Q#17S1.
#12=ABS[#135-#131-#134]
#21=[#21+#12]/2
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
GOTO80
N55
#1=#137+[#133+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#137+[#133+#18]*[#113/ABS[#113]]
G65P9752A#121T#1F#9M10.Q#17S1.
#21=ABS[#137-#131+#133*[#113/ABS[#113]]]
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
IF[#113NE2]GOTO80
#1=#137-#133-#125-#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#137-#133-#18
G65P9752A#121T#1F#9M10.Q#17S1.
#12=ABS[#137-#131-#133]
#21=[#21+#12]/2
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
GOTO80
N60
#31=#31+#136*#100
IF[#26NE#0]GOTO61
#26=5*#129
N61
#26=ABS[#26]
IF[#26LT[5*#129]]GOTO62
#26=5*#129
N62
IF[#21NE#0]GOTO63
#21=2*#129
N63
G65P9754Z[#31+#139*#100]
G65P9753A#123T[#31+[#140*#100]]F#127W1.
S#132
M#19
#31=[#[#120+1]*#129]-#14+#136*#100
G65P9753A#123T[#31-[#26*#100]]F#127W1.
IF[#113EQ0]GOTO64
#1=#137+[#133+#18-#21]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
GOTO65
N64
#1=#135+[#134+#18-#21]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
N65
#1=#140
#140=#26
G65P9752A#123Q#17T#31M10.S1.
#10=[[#[#120+1]*#129]-#14]-#131-[[[#[#120+6]]*#129]*#100]
#30=#131-[[[#[#120+6]]*#129]*#100]
#140=#1
IF[#113EQ0]GOTO66
#1=#137+[#133+#18+#125]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
GOTO67
N66
#1=#135+[#134+#18+#125]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
N67
N80
GOTO4000
N1000
#31=#31+[#136*#100]
IF[#2EQ4]GOTO1004
IF[#114EQ0]GOTO1002
IF[#2EQ3.2]GOTO1001
IF[[#18*2]LE#138]GOTO1001
G65P9754X#137Y[#135+[#18*[#114/ABS[#114]]]]
GOTO1006
N1001
G65P9754X#137Y[#135+[#12*#129*[#114/ABS[#114]]]]
GOTO1006
N1002
IF[#2EQ3.2]GOTO1003
IF[[#18*2]LE#138]GOTO1003
G65P9754X[#137+[#18*[#113/ABS[#113]]]]Y#135
GOTO1006
N1003
G65P9754X[#137+[#12*#129*[#113/ABS[#113]]]]Y#135
GOTO1006
N1004
IF[#113EQ0]GOTO1005
G65P9754X[#137+[[#18+#133+#125]*[#113/ABS[#113]]]]Y#135
GOTO1060
N1005
IF[#18LT[17.5*#129]]GOTO427
M0
(POTENTIAL*COLLISION)
N427
G65P9754X#137Y[#135+[[#18+#134+#125]*[#114/ABS[#114]]]]
GOTO1060
N1006
(AIR*BLAST*ON)
G65P9754Z[#31+#139*#100]
G65P9753A#123T[#31+[[#140+#23]*#100]]F#127W1.
#30=#31
IF[#2EQ2]GOTO1009
#140=#140+#23
IF[#2EQ3.2]GOTO1007
IF[[#18*2]LE#138]GOTO1007
S#132
M#19
G65P9752A#123T#31M10.Q#17S1.F#9
#131=#131-[[[#[#120+6]]*#129]*#100]
GOTO1008
N1007
G65P9752A#123T#31M10.Q#17F#102
N1008
#140=#140-#23
#10=#31-#131
#30=#131
IF[#2EQ1]GOTO4000
N1009
S#132
M#19
IF[#26NE#0]GOTO1010
#26=5.*#129
N1010
IF[#114EQ0]GOTO1011
#1=#135+[#134+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#135+[#134+#18]*[#114/ABS[#114]]
G65P9752A#122T#1M10.F#9Q#17S1.
#21=ABS[#135-#131+#134*[#114/ABS[#114]]]
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
IF[#114NE2]GOTO1100
#1=#135-#134-#125-#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#135-#134-#18
G65P9752A#122T#1F#9M10.Q#17S1.
#12=ABS[#135-#131-#134]
#21=[#21+#12]/2
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
GOTO1100
N1011
#1=#137+[#133+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#137+[#133+#18]*[#113/ABS[#113]]
G65P9752A#121T#1F#9M10.Q#17S1.
#21=ABS[#137-#131+#133*[#113/ABS[#113]]]
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
IF[#113NE2]GOTO1100
#1=#137-#133-#125-#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#137-#133-#18
G65P9752A#121T#1F#9M10.Q#17S1.
#12=ABS[#137-#131-#133]
#21=[#21+#12]/2
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
GOTO1100
N1060
IF[#26NE#0]GOTO1061
#26=5*#129
N1061
#26=ABS[#26]
IF[#26LT[5*#129]]GOTO1062
#26=5*#129
N1062
IF[#21NE#0]GOTO1063
#21=2*#129
N1063
G65P9754Z[#31+#139*#100]
G65P9753A#123T[#31+#140*#100]F#127W1.
S#132
M#19
#31=[#[#120+1]*#129]-#14+#136*#100
G65P9753A#123T[#31-#26*#100]F#127W1.
IF[#113EQ0]GOTO1064
#1=#137+[#133+#18-#21]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
GOTO1065
N1064
#1=#135+[#134+#18-#21]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
N1065
#1=#140
#140=#26
G65P9752A#123Q#17T#31M10.S1.
#10=[[#[#120+1]*#129]-#14]-#131-[[[#[#120+6]]*#129]*#100]
#30=#131-[[[#[#120+6]]*#129]*#100]
#140=#1
IF[#113EQ0]GOTO1066
#1=#137+[#133+#18+#125]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
GOTO1067
N1066
#1=#135+[#134+#18+#125]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
N1067
N1100
GOTO4000
N2000
IF[#2EQ4]GOTO2004
IF[#114EQ0]GOTO2002
IF[#2EQ3.2]GOTO2001
IF[[#18*2]LE#138]GOTO2001
G65P9754X#137Y[#135+[#18*[#114/ABS[#114]]]]
GOTO2006
N2001
G65P9754X#137Y[#135+[#12*#129*[#114/ABS[#114]]]]
GOTO2006
N2002
IF[#2EQ3.2]GOTO2003
IF[[#18*2]LE#138]GOTO2003
G65P9754X[#137+[#18*[#113/ABS[#113]]]]Y#135
GOTO2006
N2003
G65P9754X[#137+[#12*#129*[#113/ABS[#113]]]]Y#135
GOTO2006
N2004
IF[#113EQ0]GOTO2005
G65P9754X[#137+[#18*[#113/ABS[#113]]]]Y#135
GOTO2060
N2005
IF[#18LT[17.5*#129]]GOTO428
M0
(POTENTIAL*COLLISION)
N428
G65P9754X#137Y[#135+[#18*[#114/ABS[#114]]]]
GOTO2060
N2006
(AIR*BLAST*ON)
#30=#0
IF[#2NE2]GOTO2007
#30=3.
N2007
G65P9754Z[#31+[#110-#116]*#100]
#10=#31+[#111-#116]*#100
#140=#140+#23
IF[#2EQ3.2]GOTO2008
IF[[#18*2]LE#138]GOTO2008
S#132
M#19
G65P9752A#123T#10M#30Q#17S1.D#9F[#29/#3]
#131=#131-[[[#[#120+6]]*#129]*#100]
GOTO2009
N2008
G65P9752A#123T#10M#30Q#17D#128
N2009
#140=#140-#23
#10=#31-#131
#30=#131
IF[#2EQ1]GOTO4000
#9=#29
S#132
M#19
IF[#26NE#0]GOTO2010
#26=5.*#129
N2010
IF[#114EQ0]GOTO2011
#1=#135+[#134+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#135+[#134+#18]*[#114/ABS[#114]]
G65P9752A#122T#1M10.F#9Q#17S1.
#21=ABS[#135-#131+#134*[#114/ABS[#114]]]
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
IF[#114NE2]GOTO4000
#1=#135-#134-#125-#18
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#135-#134-#18
G65P9752A#122T#1F#9M10.Q#17S1.
#12=ABS[#135-#131-#134]
#21=[#21+#12]/2
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
GOTO4000
N2011
#1=#137+[#133+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#137+[#133+#18]*[#113/ABS[#113]]
G65P9752A#121T#1F#9M10.Q#17S1.
#21=ABS[#137-#131+#133*[#113/ABS[#113]]]
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
IF[#113NE2]GOTO4000
#1=#137-#133-#125-#18
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#30-[#26*#100]]F#127W1.
#1=#137-#133-#18
G65P9752A#121T#1F#9M10.Q#17S1.
#12=ABS[#137-#131-#133]
#21=[#21+#12]/2
G65P9753A#123T[#30+[[#140+#23]*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
GOTO4000
N2060
IF[#26NE#0]GOTO2061
#26=5*#129
N2061
#26=ABS[#26]
IF[#26LT[5*#129]]GOTO2062
#26=5*#129
N2062
IF[#21NE#0]GOTO2063
#21=2*#129
N2063
G65P9754Z[#31+[#110-#116]*#100](RAPID TO LONG TOOL)
S#132
M#19
G65P9752A#123T[#31+[#111-#116]*#100]M3.Q#17S1.D#9F#29
#10=#31-#131
#30=#131
IF[#113EQ0]GOTO2065
(G65P9754X[#137+[[#18+#133+#125]*[#113/ABS[#113]]]]Y#135)
G65P9753A#121T[#137+[[#18+#133+#125]*[#113/ABS[#113]]]]F#127W1.
GOTO2066
N2065
(G65P9754X#137Y[#135+[[#18+#134+#125]*[#114/ABS[#114]]]])
G65P9753A#122T[#135+[[#18+#134+#125]*[#114/ABS[#114]]]]F#127W1.
N2066
#31=ABS[#[#120]-#[#120+1]]*#129
#31=#30-[#31+#26+#23]*#100
G65P9753A#123T#31F#127W1.
IF[#113EQ0]GOTO2067
#1=#137+[#133+#18-#21]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
GOTO2068
N2067
#1=#135+[#134+#18-#21]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
N2068
#1=#140
#140=#26
G65P9752A#123Q#17T[#31+#26*#100]M10.S1.
#10=[[#[#120+1]*#129]-#14]-#131
#30=#131
#140=#1
IF[#113EQ0]GOTO2069
#1=#137+[#133+#18+#125]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
GOTO2070
N2069
#1=#135+[#134+#18+#125]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
N2070
N4000
(AIR*BLAST*OFF)
M98P9755
G90
#149=0
#148=0
IF[#2EQ2]GOTO86
(REPORTER2)
#10=#30+#14-[#[#120]*#129]-#5
IF[#2NE4]GOTO4001
#10=#30+#14-[#[#120+1]*#129]-#5
N4001
IF[#11EQ#0]GOTO82
IF[#116NE0]GOTO81
#10=#10-#[#104+#20]
N81
IF[#11LT0]GOTO84
IF[ABS[#10]LE#11]GOTO86
#148=1
GOTO86
N82
#[#104+#20]=#116+#10*#100
IF[#103EQ0]GOTO86
#[#103+#20]=0
GOTO86
N84
IF[ABS[#10]LEABS[#11]]GOTO85
#148=1
GOTO86
N85
IF[#103EQ0]GOTO86
#[#103+#20]=#10
N86
(REPORTER3)
IF[#2EQ1]GOTO94
IF[#2EQ4]GOTO94
(REPORTER4)
IF[#8EQ#0]GOTO90
#12=[[#21-#4]*#109]-#[#106+#7]
IF[#8LT0]GOTO92
IF[ABS[#12]LE#8]GOTO94
#148=#148+2
GOTO94
N90
#[#106+#7]=[#21-#4]*#109
IF[#105EQ0]GOTO94
#[#105+#7]=0
GOTO94
N92
IF[ABS[#12]LEABS[#8]]GOTO93
#148=#148+2
GOTO94
N93
IF[#105EQ0]GOTO94
#[#105+#7]=#12
N94
IF[#13NE#0]GOTO96
IF[#148EQ0]GOTO96
#149=129+#148
N95(ALARM)
M98P9759
N96
#149=#0
M5
G65P9891A9857.(USER*END)
(REPORTER5)
M99


O9858(BROKEN*TOOL*CYCLE)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
#12=0.(STEP*OFF*FROM*CENTRE*IN*MM)
#6=0
#118=0
M5
M98P9750
IF[#143EQ0]GOTO1001
(SAVE INPUTS FOR BACKWARD COMPATIBILITY)
#27=#7
#7=#0
(SWAP INPUTS FOR BACKWARD COMPATIBILITY)
#18=#27
IF[#11NE#0]GOTO1000
#11=0.5*#129
N1000
#11=-ABS[#11]
(CLEAR VARIABLES)
#27=#0
N1001
#148=0
IF[ABS[#18]GT[ABS[#138]]]GOTO2
#18=0
N2
#18=#18/2
#6=4
IF[#18GT0.]GOTO4
#6=3
N4
#18=ABS[#18]
IF[#18EQ0]GOTO10
#130=800
#132=#18*2/#129
#132=[ROUND[1910/#132]]*10
IF[#132LT800]GOTO6
#132=800
N6
IF[#132GT150]GOTO8
#132=150
N8
IF[#9EQ#0]GOTO9
IF[#9LT[[#132/8]*#129]]GOTO95
N9
#9=[#132/8]*#129
N95
S#132
M#6
N10
IF[#17NE#0]GOTO11
#17=#117
N11
IF[#11NE#0]GOTO12
#11=.5*#129
N12
IF[#20NE#0]GOTO14
#20=#4111
N14
IF[#26NE#0]GOTO100
M98P9751
G65P9890A9858.(USER*START)
#31=[[#[#120]]*#129]-#14+[#136*#100]
GOTO200
N100
#1=1
M98P9751
G65P9890A9858.1(USER*START)
#31=[[#[#120]]*#129]-#14+[#136*#100]
#26=ABS[#26]
IF[#26GE#140]GOTO18
#26=#140
N18
IF[#100LT0]GOTO1111
IF[[#[#120]*#129]+[#26*#100]GT#[5020+#123]-[#116+#136]*#100]GOTO1113
GOTO200
N1111
IF[[#[#120]*#129]+[#26*#100]LT#[5020+#123]-[#116+#136]*#100]GOTO1113
GOTO200
N1113
G65P9754Z[#31+#26*#100]
N200
#149=#0
IF[#25NE#0]GOTO22
#25=#140
N22
IF[#114EQ0]GOTO340
IF[#114NE2]GOTO341
IF[[#18*2]LE#101]GOTO341
#114=#115
GOTO341
N340
IF[#113NE2]GOTO341
IF[[#18*2]LE#101]GOTO341
#113=#115
N341
IF[#114EQ0]GOTO37
IF[[#18*2]LEABS[#138]]GOTO35
G65P9754X#137Y[#135+[#18*[#114/ABS[#114]]]]
GOTO43
N35
G65P9754X#137Y[#135+[#12*#129*[#114/ABS[#114]]]]
GOTO43
N37
IF[[#18*2]LEABS[#138]]GOTO39
G65P9754X[#137+[#18*[#113/ABS[#113]]]]Y#135
GOTO43
N39
G65P9754X[#137+[#12*#129*[#113/ABS[#113]]]]Y#135
N43
(AIR*BLAST*ON)
IF[#25GE#140]GOTO34
G65P9754Z[#31+#140*#100]
G65P9753A#123T[#31+#25*#100]W1.F#127
GOTO36
N34
G65P9754Z[#31+#25*#100]
N36
#149=0
#1=#31-[#17*#100]
#118=9858
IF[#18NE0]GOTO40
IF[ABS[#11]LT[.5*#129]]GOTO38
(G65P9752A#123T#31M30.Q#17F#9)
IF[#9LT#102]GOTO851
#9=#102
N851
#3004=2
G53(*)
G65P9753A#123T#1F#9
#3004=0
IF[#149GT0]GOTO191
#2=#131+[#140*#100]
G65P9754A#123T#2F#127
#10=#131-#31
GOTO42
N38
(G65P9752A#123T#31M10.Q#17F#102)
#3004=2
G53(*)
G65P9753A#123T#1F#102
#3004=0
IF[#149GT0]GOTO191
#2=#131+[[#[#120+7]*#129]*#100]
G65P9754A#123T#2F#127
#3004=2
G65P9753A#123T#1F[30.*#129]
#3004=0
IF[#149GT0]GOTO191
#2=#131+[#140*#100]
G65P9754A#123T#2F#127
#10=#131-#31
GOTO42
N40
(G65P9752A#123T#31M10.Q#17S1.F#9)
IF[#9LT#102]GOTO852
#9=#102
N852
#3004=2
G53(*)
G65P9753A#123T#1F#9
#3004=0
IF[#149GT0]GOTO191
#2=#131+[[#[#120+7]*#129]*#100]
G65P9754A#123T#2F#127
S800
#3004=2
G65P9753A#123T#1F[4.*#129]
#3004=0
IF[#149GT0]GOTO191
#2=#131+[#140*#100]
G65P9754A#123T#2F#127
#10=#131-#31-[[[#[#120+6]]*#129]*#100]
N42
GOTO201
N191
M98P9755
IF[#149EQ10.]GOTO54
#149=50
#148=1
IF[#13NE#0]GOTO58
GOTO54
N201
(AIR*BLAST*OFF)
IF[#26EQ#0]GOTO44
G65P9754Z[#31+#26*#100]
GOTO46
N44
M98P9755
N46
#149=#0
IF[#11LT0]GOTO47
IF[#10GT0]GOTO58
IF[ABS[#10]GT#11]GOTO50
GOTO58
N47
IF[#10LT#11]GOTO50
IF[#10GTABS[#11]]GOTO52
GOTO58
N50
#149=50
#148=1
IF[#13NE#0]GOTO58
GOTO54
N52
#149=40
#148=2
IF[#13NE#0]GOTO58
N54
M98P9759
N58
M5
G65P9891A9858.(USER*END)
M99


O9859(REN*TEMP*COMP)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
M98P9750
IF[#143EQ0]GOTO101
(SAVE INPUTS FOR BACKWARD COMPATIBILITY)
#27=#7
#7=#0
(SWAP INPUTS FOR BACKWARD COMPATIBILITY)
#18=#27
(CLEAR VARIABLES)
#27=#0
N101
#4=#19
#149=60
IF[#3EQ#0]GOTO66
#149=80
IF[#143EQ0]GOTO1011
#149=150
N1011
IF[#18EQ#0]GOTO66
#149=30
IF[#3EQ2.]GOTO2
IF[#11NE#0]GOTO66
N2
IF[#17NE#0]GOTO3
#17=#117
N3
#149=#0
#140=3*#129
IF[#114NE0]GOTO500
#[#146+23]=#0
N500
IF[#113NE0]GOTO501
#[#144+23]=#0
N501
IF[#23NE#0]GOTO4
#23=5*#129
N4
#19=4
IF[#18GT0]GOTO6
#19=3
N6
IF[#20NE#0]GOTO8
#20=#4120
N8
IF[#108EQ1]GOTO10
IF[#8NE#0]GOTO10
#8=#20(D)
N10
#18=ABS[#18/2]
IF[#18EQ0]GOTO16
#130=800
#132=[#18*2]/#129
#132=[ROUND[1910/#132]]*10
IF[#132LT800]GOTO12
#132=800
N12
IF[#132GT150]GOTO14
#132=150
N14
#9=[#132*0.15]*#129
N16
M98P9751
G65P9890A9859.(USER*START)
M#19S800
IF[#114EQ0]GOTO340
IF[#114NE2]GOTO341
IF[[#18*2]LE#101]GOTO341
#114=#115
GOTO341
N340
IF[#113NE2]GOTO341
IF[[#18*2]LE#101]GOTO341
#113=#115
N341
IF[ABS[#18*2]LT#138]GOTO20
IF[#114EQ0]GOTO18
G65P9754Y[#135+[#18*[#114/ABS[#114]]]]
GOTO20
N18
G65P9754X[#137+[#18*[#113/ABS[#113]]]]
N20
(AIR*BLAST*ON)
#31=[[#[#120]]*#129]-#14+[#136*#100]
G65P9754Z[#31+#140*#100]
#27=0
IF[#24EQ#0]GOTO22
IF[#147EQ1]GOTO27
N22
IF[#25EQ#0]GOTO24
IF[#147EQ2]GOTO27
N24
IF[#26EQ#0]GOTO26
IF[#147EQ3]GOTO27
N26
GOTO28
N27
G65P9752A#123T#31M10.Q#17S1.
#32=#131
G65P9754X#137Y#135
IF[#3EQ2]GOTO28
#[#[#147+23]]=#14+#32
N28
IF[#24EQ#0]GOTO30
IF[#144EQ1]GOTO35
N30
IF[#25EQ#0]GOTO32
IF[#144EQ2]GOTO35
N32
IF[#26EQ#0]GOTO34
IF[#144EQ3]GOTO35
N34
GOTO36
N35
#1=#137+[#133+#125+#18]*[#113/ABS[#113]]
G65P9753A#121T#1F#127W1.
G65P9753A#123T[#31-[#23*#100]]F#127W1.
#1=#137+[#133+#18]*[#113/ABS[#113]]
G65P9752A#121T#1F#9M10.Q#17S1.
#21=#131
G65P9753A#123T[#31+[#140*#100]]F#127W1.
G65P9753A#121T#137F#127W1.
IF[#3EQ2]GOTO36
#[#[#144+23]]=#16+#21-[#18*[#113/ABS[#113]]]
N36
IF[#24EQ#0]GOTO38
IF[#146EQ1]GOTO43
N38
IF[#25EQ#0]GOTO40
IF[#146EQ2]GOTO43
N40
IF[#26EQ#0]GOTO42
IF[#146EQ3]GOTO43
N42
GOTO44
N43
#1=#135+[#134+#125+#18]*[#114/ABS[#114]]
G65P9753A#122T#1F#127W1.
G65P9753A#123T[#31-[#23*#100]]F#127W1.
#1=#135+[#134+#18]*[#114/ABS[#114]]
G65P9752A#122T#1M10.F#9Q#17S1.
#22=#131
G65P9753A#123T[#31+[#140*#100]]F#127W1.
G65P9753A#122T#135F#127W1.
IF[#3EQ2]GOTO44
#[#[#146+23]]=#15+#22-[#18*[#114/ABS[#114]]]
N44
(AIR*BLAST*OFF)
M98P9755
M5
IF[#3EQ1]GOTO68
#100=#[#[#144+23]]-[#16+#21-[#18*[#113/ABS[#113]]]]
#101=#[#[#146+23]]-[#15+#22-[#18*[#114/ABS[#114]]]]
#102=#[#[#147+23]]-[#14+#32]
IF[#24EQ#0]GOTO48
IF[#144NE1]GOTO45
#100=#[#[#144+23]]-[#16+#21-[#18*[#113/ABS[#113]]]]
GOTO48
N45
IF[#146NE1]GOTO46
#100=#[#[#146+23]]-[#15+#22-[#18*[#114/ABS[#114]]]]
GOTO48
N46
#100=#[#[#147+23]]-[#14+#32]
N48
IF[#25EQ#0]GOTO51
IF[#144NE2]GOTO49
#101=#[#[#144+23]]-[#16+#21-[#18*[#113/ABS[#113]]]]
GOTO51
N49
IF[#146NE2]GOTO50
#101=#[#[#146+23]]-[#15+#22-[#18*[#114/ABS[#114]]]]
GOTO51
N50
#101=#[#[#147+23]]-[#14+#32]
N51
IF[#26EQ#0]GOTO51
IF[#144NE3]GOTO52
#102=#[#[#144+23]]-[#16+#21-[#18*[#113/ABS[#113]]]]
GOTO54
N52
IF[#146NE3]GOTO53
#102=#[#[#146+23]]-[#15+#22-[#18*[#114/ABS[#114]]]]
GOTO54
N53
#102=#[#[#147+23]]-[#14+#32]
N54
#103=0
IF[#11EQ#0]GOTO68
IF[ABS[#100]GT#11]GOTO55
IF[ABS[#101]GT#11]GOTO55
IF[ABS[#102]GT#11]GOTO55
GOTO68
N55
#149=135
#103=1
IF[#13EQ1]GOTO68
N66
M98P9759
N68
#149=#0
M5
G65P9891A9859.(USER*END)
M99


O9921(REN*3DTS*GP*CYCLE)
(F-4012-0584-AU)
(COPYRIGHT*1992-2022*RENISHAW*PLC.*ALL*RIGHTS*RESERVED)
#9=#0
#10=#1
M98P9750
IF[#13EQ201]GOTO10
IF[#13EQ200]GOTO15
#149=410
IF[#[#120]EQ#0]GOTO19
IF[#[#120]EQ0]GOTO19
IF[#13EQ21]GOTO2
IF[#13EQ22]GOTO5
IF[#13EQ23]GOTO8
IF[#13EQ24]GOTO9
N2
IF[#20NE#0]GOTO3
#20=#4120
N3
IF[#3EQ0]GOTO4
IF[#143EQ1]GOTO1001
G65P9856J#6Q#17R#7T#20(CURRENT STANDARD)
GOTO20
N1001
G65P9856D#7K#6Q#17T#20(BACKWARD COMPATIBLE)
GOTO20
N4
IF[#143EQ1]GOTO1002
G65P9857B1.C#10J#6K#25F#22Q#17R#7T#20(CURRENT STANDARD)
GOTO20
N1002
G65P9857B1.D#7K#6Q#17T#20Y#25(BACKWARD COMPATIBLE)
GOTO20
N5
IF[#20NE#0]GOTO6
#20=#4120
N6
#149=150
IF[#7EQ#0]GOTO19
IF[#3EQ0]GOTO7
IF[#143EQ1]GOTO1003
G65P9856A#18B3.I#5J#6D#8Q#17R#7T#20Z#26(CURRENT STANDARD)
GOTO20
N1003
G65P9856A#18B3.D#7E#8J#5K#6Q#17T#20Z#26(BACKWARD COMPATIBLE)
GOTO20
N7
IF[#143EQ1]GOTO1004
G65P9857A#18B3.C#10I#5J#6K#25D#8F#22Q#17R#7T#20Z#26(CURRENT STANDARD)
GOTO20
N1004
G65P9857A#18B3.C#10D#7E#8J#5K#6F#22Q#17T#20Y#25Z#26(BACKWARD COMPATIBLE)
GOTO20
N8
IF[#143EQ1]GOTO1006
IF[#11EQ#0]GOTO1005
G65P9858T#20R#7H-#11M#21Q#17F#9(CURRENT STANDARD)
GOTO20
N1005
G65P9858T#20R#7H#0M#21Q#17F#9(CURRENT STANDARD)
GOTO20
N1006
G65P9858D#7F#9H#11M#21Q#17T#20(BACKWARD COMPATIBLE)
GOTO20
N9
#3000=99(CYCLE*UNAVAILABLE)
GOTO20
N10
IF[#10NE#0]GOTO11
G65P9855D#7R#2Q#17T#20Z#26F#0C[4.*#129]
GOTO20
N11
M98P9750
G65P9890A9921.(USER*START)
#140=10.*#129
(AIR*BLAST*ON)
IF[#17NE#0]GOTO13
#17=#117
N13
#149=70
IF[#20LE0]GOTO19
#1=1
M98P9751
#8=#[5040+#123]-#116
G65P9752A#123T[#8-[[10.*#129]*#100]]M10.Q#17F#9
#20=#131
G65P9752A#123T[#8-[[10.*#129]*#100]]M10.Q#17S1.F#9
#[#120]=#131+#14-[#136*#100]
#[#120]=#[#120]/#129
#[#120+6]=[#131-#20]/#129
G65P9891A9921.(USER*END)
(AIR*BLAST*OFF)
GOTO20
N15
(TS*READY*CHECK)
IF[#7NE#0]GOTO16
#7=12.7*#129
N16
M98P9750
#20=#4120
#1=1.
M98P9751
IF[#9NE#0]GOTO17
#9=#102
N17
G65P9890A9921.(USER*START)
G53(*)
#2=#[5040+#123]-#116
#3=#2-[7*#129]*#100
#17=#117
GOTO[#147*100]
N100
G31X#3F#9
G1X#2F#102
GOTO400
N200
G31Y#3F#9
G1Y#2F#102
GOTO400
N300
G31Z#3F#9
G1Z#2F#102
N400
#149=420
IF[ABS[#[5060+#123]-#116-#2]LT#145]GOTO19
IF[ABS[#[5060+#123]-#116-#3]LT#145]GOTO19
#149=410
IF[#[#120]EQ#0]GOTO19
IF[#[#120]EQ0]GOTO19
#27=[[#[#120+2]+#[#120+3]]/2]*#129
#28=[[#[#120+4]+#[#120+5]]/2]*#129
IF[[ABS[#[5020+#121]-#28]]GT[10*#129]]GOTO19
IF[[ABS[#[5020+#122]-#27]]GT[10*#129]]GOTO19
M98P9750
#1=#121
#2=#144
#4=1
#8=#[5040+#123]-#116*#100
WHILE[#4LT3]DO1
G53(*)
#30=#[#1+5040]
G65P9753A#1T[#30-[#7/4]]F#127W1.
G65P9752A#123T[#8-[[10.*#129]*#100]]M10.Q#17
#[#1+26]=#131
G65P9753A#1T[#30+[#7/4]]F#127W1.
#8=#[5040+#123]-#116*#100
G65P9752A#123T[#8-[[10.*#129]*#100]]M10.Q#17
#[#2+26]=#[#2+26]-#131
G65P9753A#1T#30F#127W1.
#1=#122
#2=#146
#4=#4+1
END1
#100=#[#144+26]
#101=#[#146+26]
#149=417
IF[ABS[#100]GT#142]GOTO19
IF[ABS[#101]GT#142]GOTO19
#149=435
N19
G65P9891A9921.(USER*END)
(AIR*BLAST*OFF)
G65P9759
N20
M99
%